home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / GAM / C-D / DM_3000 / DM 3000 / card_21155.txt < prev    next >
Encoding:
Text File  |  1988-06-06  |  1.3 KB  |  67 lines
  1. -- card: 21155 from stack: in
  2. -- bmap block id: 17403
  3. -- flags: 4000
  4. -- background id: 2604
  5. -- name: TOOL/SHOP
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=344 top=116 right=139 bottom=364
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 2730 / 2730
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: S/TO/OUT/TOOL
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 9516
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 2000
  31. -- rect: left=122 top=215 right=232 bottom=144
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: GET/LASER
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   global inventory
  43.   if "laser" is in inventory then
  44.     put "The crate is empty." into Msg
  45.     wait 3 seconds
  46.     doMenu "Message"
  47.   else
  48.     put ", cutting laser" after inventory
  49.     put inventory into background field "ShowMe"
  50.     put "You find an old cutting laser." into Msg
  51.     wait 3 seconds
  52.     doMenu "Message"
  53.   end if
  54.  
  55.   global power
  56.   add 2 to power
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part contents for background part 6
  62. ----- text -----
  63. You are carrying: empty multicorder
  64.  
  65. -- part contents for background part 8
  66. ----- text -----
  67. 0